(display "Enter your name: ")
(flush-output-port)
(define name (read)) ; wait user input
(display "Hello, ") (display name) (newline)
